home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Tele / G / GEnieDL'er.cpt / Set DL List < prev    next >
Encoding:
Text File  |  1988-08-10  |  604 b   |  22 lines  |  [TEXT/MACA]
  1.  Settings File = GEnie-upl
  2.  Script Name = Set DL List
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Open Capt. File "DL Files List"
  9. 2   Set Variable MCount from Expression  "=0"
  10. 3   Repeat
  11. 4     Set Variable Mcount from Expression  "=Mcount+1"
  12. 5     Set Variable MFileName from Dialog Box  "='File# ',MCount,' to be Downloaded...^MPlease Enter File Name / Number :'"
  13. 6     If Expression  "=Length(MFileName)=0"
  14. 7       Leave
  15. 8     End If
  16. 9     Send Local to File  "=MFileName,'^M'"
  17. 10  Until Expression  "=Mcount=99"
  18. 11  Capture Off 
  19. 12  If Expression  "=Mcount=1"
  20. 13    Abort Script
  21. 14  End If
  22.